Option Explicit
Sub D_Sample034()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)				'Nï
    myWb.Protect
    myWb.Protect Password:="password"		'wKX
    myWb.Protect Structure:=True 		'O@u@c
    myWb.Protect Windows:=True 		'O@
    Set myWb = Nothing				'
End Sub

